Best of www.BestZips.com (Collector's Edition)/Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO/catalogg/32pssw10.zip/_SETUP.1/SOO32S.EXE/0/RCDATA/TLABELDLG/TLABELDLG.txt

Text File | 1996-10-12 | 38KB | 1,239 lines

object LabelDlg: TLabelDlg
  Left = 160
  Top = 96
  ActiveControl = LoadBtn
  BorderStyle = bsDialog
  Caption = 'Print Labels'
  ClientHeight = 337
  ClientWidth = 368
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  PixelsPerInch = 96
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  TextHeight = 13
  object ButtonPanel: TPanel
    Left = 283
    Top = 0
    Width = 85
    Height = 283
    Align = alRight
    BevelOuter = bvNone
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object PrintBtn: TBitBtn
      Left = 5
      Top = 79
      Width = 77
      Height = 27
      Hint = 'Print Report On Selected Printer'
      Caption = '&Print'
      Default = True
      TabOrder = 2
      OnClick = PrintBtnClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0003377777777777777308888888888888807F33333333333337088888888888
        88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
        8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
        8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
        33333337FFFF77333333333000000333333333377777733333330000}
      Margin = 2
      NumGlyphs = 2
      Spacing = -1
      IsControl = True
    end
    object CancelBtn: TBitBtn
      Left = 5
      Top = 1
      Width = 77
      Height = 27
      Hint = 'Close This Window'
      Caption = '&Close'
      TabOrder = 0
      Kind = bkCancel
      Margin = 2
      Spacing = -1
      IsControl = True
    end
    object HelpBtn: TBitBtn
      Left = 5
      Top = 40
      Width = 77
      Height = 27
      Hint = 'Display Help Window'
      TabOrder = 1
      Kind = bkHelp
      Margin = 2
      Spacing = -1
      IsControl = True
    end
    object LoadBtn: TBitBtn
      Left = 5
      Top = 157
      Width = 77
      Height = 27
      Hint = 'Load Report Template From Disk File'
      Caption = '&Load'
      Default = True
      TabOrder = 4
      OnClick = LoadBtnClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
        07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
        0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      Margin = 2
      NumGlyphs = 2
      Spacing = -1
      IsControl = True
    end
    object SaveBtn: TBitBtn
      Left = 5
      Top = 196
      Width = 77
      Height = 27
      Hint = 'Save Report Template To Disk File'
      Caption = '&Save'
      Default = True
      TabOrder = 5
      OnClick = SaveBtnClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
        7700333333337777777733333333008088003333333377F73377333333330088
        88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
        000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
        FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
        99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      Margin = 2
      NumGlyphs = 2
      Spacing = -1
      IsControl = True
    end
    object PreviewBtn: TBitBtn
      Left = 5
      Top = 118
      Width = 77
      Height = 27
      Hint = 'Preview Report On Screen'
      Caption = 'Pre&view'
      Default = True
      TabOrder = 3
      OnClick = PreviewBtnClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        033333777777777773333330777777703333333773F333773333333330888033
        33333FFFF7FFF7FFFFFF0000000000000003777777777777777F0FFFFFFFFFF9
        FF037F3333333337337F0F78888888887F037F33FFFFFFFFF37F0F7000000000
        8F037F3777777777F37F0F70AAAAAAA08F037F37F3333337F37F0F70ADDDDDA0
        8F037F37F3333337F37F0F70A99A99A08F037F37F3333337F37F0F70A99A99A0
        8F037F37F3333337F37F0F70AAAAAAA08F037F37FFFFFFF7F37F0F7000000000
        8F037F3777777777337F0F77777777777F037F3333333333337F0FFFFFFFFFFF
        FF037FFFFFFFFFFFFF7F000000000000000377777777777777730000}
      Margin = 2
      NumGlyphs = 2
      Spacing = -1
      IsControl = True
    end
  end
  object TabSet: TTabSet
    Left = 0
    Top = 316
    Width = 368
    Height = 21
    Align = alBottom
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    OnClick = TabSetClick
  end
  object Notebook: TNotebook
    Left = 0
    Top = 0
    Width = 283
    Height = 283
    Align = alClient
    TabOrder = 2
    IsControl = True
    object TPage
      Left = 0
      Top = 0
      Caption = 'Fields'
      IsControl = True
      object GroupBox1: TGroupBox
        Left = 3
        Top = 4
        Width = 277
        Height = 275
        Caption = 'Data Fields'
        TabOrder = 0
        object Label1: TLabel
          Left = 5
          Top = 18
          Width = 56
          Height = 13
          Caption = 'All Fields:'
        end
        object Label2: TLabel
          Left = 157
          Top = 18
          Width = 91
          Height = 13
          Caption = 'Included Fields:'
        end
        object IncludeBtn: TSpeedButton
          Left = 126
          Top = 52
          Width = 24
          Height = 24
          Hint = 'Include Selected Field'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Glyph.Data = {
            74010000424D7401000000000000760000002800000013000000130000000100
            040000000000E400000000000000000000000000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
            8888888FFFFF8888888888888888888000108888888888888888888FFFF58888
            880088888888888000008888880A08888888888FFFFF8888880AA08888888880
            00008888880AAA088888888FFFFF8888880AAAA08888888000008888880AAAAA
            0888888131008888880AAAAAA088888095C08888880AAAAA0888888053028888
            880AAAA088888887D5D58888880AAA0888888889091D8888880AA0888888888F
            CFD78888880A08888888888A7AE288888800888888888887CF57888888888888
            88888881F9758888888888888888888AFBAF8888888888888888888E666C0000
            000000000000000000000000000000000000000000000000}
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = IncludeBtnClick
          IsControl = True
        end
        object IncAllBtn: TSpeedButton
          Left = 125
          Top = 81
          Width = 24
          Height = 24
          Hint = 'Include All Fields'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Glyph.Data = {
            74010000424D7401000000000000760000002800000013000000130000000100
            040000000000E400000000000000000000000000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
            8888888FFFFF8888888888888888888000108888888888888888888FFFF58008
            8888880088888880000080A08888880A0888888FFFFF80AA0888880AA0888880
            000080AAA088880AAA08888FFFFF80AAAA08880AAAA08880000080AAAAA0880A
            AAAA0881310080AAAAAA080AAAAAA08095C080AAAAA0880AAAAA0880530280AA
            AA08880AAAA08887D5D580AAA088880AAA088889091D80AA0888880AA088888F
            CFD780A08888880A0888888A7AE280088888880088888887CF57888888888888
            88888881F9758888888888888888888AFBAF8888888888888888888E666C0000
            000000000000000000000000000000000000000000000000}
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = IncAllBtnClick
          IsControl = True
        end
        object ExcludeBtn: TSpeedButton
          Left = 125
          Top = 125
          Width = 24
          Height = 24
          Hint = 'Exclude Selected Field'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Glyph.Data = {
            74010000424D7401000000000000760000002800000013000000130000000100
            040000000000E400000000000000000000000000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
            8888888FFFFF8888888888888888888000108888888888888888888FFFF58888
            888888800888888000008888888888090888888FFFFF88888888809908888880
            00008888888809990888888FFFFF888888809999088888800000888888099999
            0888888131008888809999990888888095C08888880999990888888053028888
            8880999908888887D5D588888888099908888889091D8888888880990888888F
            CFD78888888888090888888A7AE288888888888008888887CF57888888888888
            88888881F9758888888888888888888AFBAF8888888888888888888E666C0000
            000000000000000000000000000000000000000000000000}
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = ExcludeBtnClick
          IsControl = True
        end
        object ExAllBtn: TSpeedButton
          Left = 125
          Top = 154
          Width = 24
          Height = 24
          Hint = 'Exclude All Fields'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Glyph.Data = {
            74010000424D7401000000000000760000002800000013000000130000000100
            040000000000E400000000000000000000000000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
            8888888FFFFF8888888888888888888000108888888888888888888FFFF58888
            888008888888008000008888880908888880908FFFFF88888099088888099080
            00008888099908888099908FFFFF888099990888099990800000880999990880
            9999908131008099999908099999908095C08809999908809999908053028880
            9999088809999087D5D588880999088880999089091D8888809908888809908F
            CFD78888880908888880908A7AE288888880088888880087CF57888888888888
            88888881F9758888888888888888888AFBAF8888888888888888888E666C0000
            000000000000000000000000000000000000000000000000}
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = ExAllBtnClick
          IsControl = True
        end
        object MoveUpBtn: TSpeedButton
          Left = 184
          Top = 246
          Width = 24
          Height = 24
          Hint = 'Move Up'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Glyph.Data = {
            78010000424D7801000000000000760000002800000020000000100000000100
            04000000000000000000120B0000120B00000000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
            3333333333777F33333333333309033333333333337F7F333333333333090333
            33333333337F7F33333333333309033333333333337F7F333333333333090333
            33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
            3333333777737777F333333099999990333333373F3333373333333309999903
            333333337F33337F33333333099999033333333373F333733333333330999033
            3333333337F337F3333333333099903333333333373F37333333333333090333
            33333333337F7F33333333333309033333333333337373333333333333303333
            333333333337F3333333333333303333333333333337333333330000}
          NumGlyphs = 2
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = MoveUpBtnClick
          IsControl = True
        end
        object MoveDownBtn: TSpeedButton
          Left = 216
          Top = 246
          Width = 24
          Height = 24
          Hint = 'Move Down'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Glyph.Data = {
            78010000424D7801000000000000760000002800000020000000100000000100
            04000000000000000000120B0000120B00000000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
            333333333337F33333333333333033333333333333373F333333333333090333
            33333333337F7F33333333333309033333333333337373F33333333330999033
            3333333337F337F33333333330999033333333333733373F3333333309999903
            333333337F33337F33333333099999033333333373333373F333333099999990
            33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
            33333333337F7F33333333333309033333333333337F7F333333333333090333
            33333333337F7F33333333333309033333333333337F7F333333333333090333
            33333333337F7F333333333333000333333333333377733333330000}
          NumGlyphs = 2
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          OnClick = MoveDownBtnClick
          IsControl = True
        end
        object ListBox1: TListBox
          Left = 5
          Top = 34
          Width = 113
          Height = 231
          Hint = 'List Of All Data Fields'
          ItemHeight = 13
          TabOrder = 0
        end
        object ListBox2: TListBox
          Left = 158
          Top = 34
          Width = 113
          Height = 207
          Hint = 'Data Fields Selected For Report'
          ItemHeight = 13
          TabOrder = 1
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Labels'
      object GroupBox5: TGroupBox
        Left = 3
        Top = 1
        Width = 277
        Height = 275
        Caption = 'Label Settings'
        TabOrder = 0
        object Label7: TLabel
          Left = 212
          Top = 216
          Width = 58
          Height = 26
          Caption = 'Print From Label #:'
          WordWrap = True
        end
        object GroupBox2: TGroupBox
          Left = 8
          Top = 104
          Width = 201
          Height = 42
          Caption = 'Label Size [inches]'
          TabOrder = 1
          object Label3: TLabel
            Left = 10
            Top = 19
            Width = 38
            Height = 13
            Caption = 'Width:'
          end
          object Label4: TLabel
            Left = 101
            Top = 19
            Width = 42
            Height = 13
            Caption = 'Height:'
          end
          object WidthEd: TEdit
            Left = 48
            Top = 16
            Width = 49
            Height = 20
            Hint = 'Label Width'
            TabOrder = 0
            OnKeyPress = LeftEdKeyPress
          end
          object HeightEd: TEdit
            Left = 143
            Top = 16
            Width = 49
            Height = 20
            Hint = 'Label Height'
            TabOrder = 1
            OnKeyPress = LeftEdKeyPress
          end
        end
        object GroupBox3: TGroupBox
          Left = 8
          Top = 14
          Width = 257
          Height = 90
          Caption = 'Label Type'
          TabOrder = 0
          object LabelType: TRadioGroup
            Left = 8
            Top = 13
            Width = 129
            Height = 44
            ItemIndex = 0
            Items.Strings = (
              'Avery'
              'Custom')
            TabOrder = 0
            OnClick = LabelTypeClick
          end
          object AveryType: TComboBox
            Left = 8
            Top = 61
            Width = 129
            Height = 21
            Hint = 'AVERY Label Type'
            ItemHeight = 13
            Items.Strings = (
              'AV 12_294'
              'AV 12_295'
              'AV 12_296'
              'AV 12_297'
              'AV 2160'
              'AV 2162'
              'AV 2163'
              'AV 2180'
              'AV 2181'
              'AV 2186'
              'AV 2660'
              'AV 2662'
              'AV 2663'
              'AV 5066'
              'AV 5095'
              'AV 5096'
              'AV 5097'
              'AV 5160'
              'AV 5161'
              'AV 5162'
              'AV 5163'
              'AV 5164'
              'AV 5165'
              'AV 5167'
              'AV 5196'
              'AV 5197'
              'AV 5198'
              'AV 5199 FACE'
              'AV 5199 SPINE'
              'AV 5260'
              'AV 5261'
              'AV 5262'
              'AV 5263'
              'AV 5264'
              'AV 5265'
              'AV 5266'
              'AV 5267'
              'AV 5293'
              'AV 5294'
              'AV 5295'
              'AV 5305'
              'AV 5309'
              'AV 5315'
              'AV 5361'
              'AV 5361 SINGLE'
              'AV 5362'
              'AV 5362 SINGLE'
              'AV 5364'
              'AV 5364S'
              'AV 5366'
              'AV 5371'
              'AV 5372'
              'AV 5376'
              'AV 5377'
              'AV 5383'
              'AV 5384'
              'AV 5385'
              'AV 5386'
              'AV 5388'
              'AV 5389'
              'AV 5390'
              'AV 5392'
              'AV 5395'
              'AV 5660'
              'AV 5661'
              'AV 5662'
              'AV 5663'
              'AV 5664'
              'AV 5667'
              'AV 5766'
              'AV 5824'
              'AV 5836 LABEL'
              'AV 5836 TAB'
              'AV 5837 LABEL'
              'AV 5837 TAB'
              'AV 5838 LABEL'
              'AV 5838 TAB'
              'AV 5839'
              'AV 5840'
              'AV 5841'
              'AV 5842'
              'AV 5843'
              'AV 5844'
              'AV 5845'
              'AV 5848 LABEL'
              'AV 5848 TAB'
              'AV 5849 LABEL'
              'AV 5849 TAB'
              'AV 5855 LABEL'
              'AV 5855 TAB'
              'AV 5866'
              'AV 5883'
              'AV 5895 BADGE'
              'AV 5895 SPINE'
              'AV 5896'
              'AV 5897'
              'AV 5911'
              'AV 5920'
              'AV 5922'
              'AV 5923'
              'AV 5927'
              'AV 5930'
              'AV 5932'
              'AV 5963'
              'AV 5966'
              'AV 6460'
              'AV 6464'
              'AV 6466'
              'AV 6490'
              'AV 8160'
              'AV 8161'
              'AV 8162'
              'AV 8163'
              'AV 8164'
              'AV 8165'
              'AV 8166'
              'AV 8167'
              'AV 8196'
              'AV 8315'
              'AV 8316 LANDSCAPE'
              'AV 8316 PORTRAIT'
              'AV 8371'
              'AV 8372'
              'AV 8376'
              'AV 8377'
              'AV 8460'
              'AV 8462'
              'AV 8463'
              'AV 8660'
              'AV 8662'
              'AV 8663'
              'AV 8920'
              'AV 8922'
              'AV 8923'
              'AV 8927'
              'AV 8930'
              'AV 8932')
            Sorted = True
            TabOrder = 1
            OnChange = AveryTypeChange
          end
          object LabelShape: TRadioGroup
            Left = 144
            Top = 13
            Width = 105
            Height = 70
            Caption = 'Shape'
            ItemIndex = 0
            Items.Strings = (
              'Round Rect.'
              'Rectangle'
              'Round')
            TabOrder = 2
          end
        end
        object GroupBox6: TGroupBox
          Left = 8
          Top = 229
          Width = 201
          Height = 42
          Caption = 'Number Of Labels On One Page'
          TabOrder = 4
          object Label5: TLabel
            Left = 5
            Top = 19
            Width = 43
            Height = 13
            Caption = 'Across:'
          end
          object Label6: TLabel
            Left = 105
            Top = 19
            Width = 37
            Height = 13
            Caption = 'Down:'
          end
          object NumAcross: TEdit
            Left = 48
            Top = 16
            Width = 49
            Height = 20
            Hint = 'Number Of Labels Horizontally'
            TabOrder = 0
            OnKeyPress = NumAcrossKeyPress
          end
          object NumDown: TEdit
            Left = 143
            Top = 16
            Width = 49
            Height = 20
            Hint = 'Number Of Labels Vertically'
            TabOrder = 1
            OnKeyPress = NumAcrossKeyPress
          end
        end
        object GroupBox7: TGroupBox
          Left = 8
          Top = 146
          Width = 201
          Height = 42
          Caption = 'Gaps [inches]'
          TabOrder = 2
          object Label8: TLabel
            Left = 15
            Top = 19
            Width = 32
            Height = 13
            Caption = 'Vert.:'
          end
          object Label9: TLabel
            Left = 105
            Top = 19
            Width = 38
            Height = 13
            Caption = 'Horiz.:'
          end
          object SpaceW: TEdit
            Left = 48
            Top = 16
            Width = 49
            Height = 20
            Hint = 'Vertical Gaps Between Two Adjoining Labels'
            TabOrder = 0
            OnKeyPress = LeftEdKeyPress
          end
          object SpaceH: TEdit
            Left = 143
            Top = 16
            Width = 49
            Height = 20
            Hint = 'Horizontal Gaps Between Two Adjoining Labels'
            TabOrder = 1
            OnKeyPress = LeftEdKeyPress
          end
        end
        object GroupBox8: TGroupBox
          Left = 8
          Top = 188
          Width = 201
          Height = 42
          Caption = 'Page Margins [inches]'
          TabOrder = 3
          object Label13: TLabel
            Left = 21
            Top = 19
            Width = 27
            Height = 13
            Caption = 'Left:'
          end
          object Label14: TLabel
            Left = 116
            Top = 19
            Width = 27
            Height = 13
            Caption = 'Top:'
          end
          object SpaceL: TEdit
            Left = 48
            Top = 16
            Width = 49
            Height = 20
            Hint = 'Distance From Paper Edge To Left Edge Of First Label'
            TabOrder = 0
            OnKeyPress = LeftEdKeyPress
          end
          object SpaceT: TEdit
            Left = 143
            Top = 16
            Width = 49
            Height = 20
            Hint = 'Distance From Paper Edge To Top Edge Of First Label'
            TabOrder = 1
            OnKeyPress = LeftEdKeyPress
          end
        end
        object FromLabelEd: TEdit
          Left = 224
          Top = 245
          Width = 34
          Height = 20
          Hint = 'First Label To Be Printed On First Page'
          TabOrder = 5
          OnKeyPress = NumAcrossKeyPress
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Body'
      object GroupBox9: TGroupBox
        Left = 3
        Top = 4
        Width = 277
        Height = 275
        Caption = 'Label Body'
        TabOrder = 0
        object GroupBox11: TGroupBox
          Left = 8
          Top = 20
          Width = 225
          Height = 44
          Caption = 'Body Text Margins [inches]'
          TabOrder = 0
          object Label18: TLabel
            Left = 14
            Top = 20
            Width = 27
            Height = 13
            Caption = 'Left:'
          end
          object Label19: TLabel
            Left = 109
            Top = 20
            Width = 27
            Height = 13
            Caption = 'Top:'
          end
          object LabelLM: TEdit
            Left = 41
            Top = 17
            Width = 49
            Height = 20
            Hint = 'Label Body Text Left Margin'
            TabOrder = 0
            OnKeyPress = LeftEdKeyPress
          end
          object LabelTM: TEdit
            Left = 136
            Top = 17
            Width = 49
            Height = 20
            Hint = 'Label Body Text Top Margin'
            TabOrder = 1
            OnKeyPress = LeftEdKeyPress
          end
        end
        object GroupBox10: TGroupBox
          Left = 8
          Top = 72
          Width = 225
          Height = 193
          Caption = 'Text Font'
          TabOrder = 1
          object Label10: TLabel
            Left = 16
            Top = 16
            Width = 66
            Height = 13
            Caption = 'Font Name:'
          end
          object Label11: TLabel
            Left = 16
            Top = 56
            Width = 62
            Height = 13
            Caption = 'Font Style:'
          end
          object Label12: TLabel
            Left = 16
            Top = 104
            Width = 58
            Height = 13
            Caption = 'Font Size:'
          end
          object FontEd: TEdit
            Left = 16
            Top = 32
            Width = 185
            Height = 20
            TabStop = False
            Color = clBtnFace
            ReadOnly = True
            TabOrder = 0
          end
          object StyleEd: TEdit
            Left = 16
            Top = 72
            Width = 185
            Height = 20
            TabStop = False
            Color = clBtnFace
            ReadOnly = True
            TabOrder = 1
          end
          object SizeEd: TEdit
            Left = 16
            Top = 120
            Width = 185
            Height = 20
            TabStop = False
            Color = clBtnFace
            ReadOnly = True
            TabOrder = 2
          end
          object FontBtn: TBitBtn
            Left = 50
            Top = 152
            Width = 113
            Height = 33
            Hint = 'Select Font'
            Caption = 'Change Font'
            TabOrder = 3
            OnClick = FontBtnClick
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00000000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333333333333333333333333333333FFF33FFFFF33333300033000
              00333337773377777333333330333300033333337FF33777F333333330733300
              0333333377FFF777F33333333700000073333333777777773333333333033000
              3333333337FF777F333333333307300033333333377F777F3333333333703007
              33333333377F7773333333333330000333333333337777F33333333333300003
              33333333337777F3333333333337007333333333337777333333333333330033
              3333333333377333333333333333033333333333333733333333333333333333
              3333333333333333333333333333333333333333333333333333}
            Margin = 5
            NumGlyphs = 2
          end
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Header/Footer'
      object GroupBox4: TGroupBox
        Left = 3
        Top = 4
        Width = 277
        Height = 275
        Caption = 'Label Header/Footer'
        TabOrder = 0
        object Label15: TLabel
          Left = 8
          Top = 14
          Width = 117
          Height = 13
          Caption = 'Header/Footer Text:'
        end
        object GroupBox12: TGroupBox
          Left = 8
          Top = 135
          Width = 257
          Height = 135
          Caption = 'Header/Footer Font'
          TabOrder = 2
          object Label16: TLabel
            Left = 10
            Top = 20
            Width = 66
            Height = 13
            Caption = 'Font Name:'
          end
          object Label17: TLabel
            Left = 10
            Top = 44
            Width = 62
            Height = 13
            Caption = 'Font Style:'
          end
          object Label20: TLabel
            Left = 10
            Top = 70
            Width = 58
            Height = 13
            Caption = 'Font Size:'
          end
          object HFFontEd: TEdit
            Left = 80
            Top = 17
            Width = 169
            Height = 20
            TabStop = False
            Color = clBtnFace
            ReadOnly = True
            TabOrder = 0
          end
          object HFStyleEd: TEdit
            Left = 80
            Top = 42
            Width = 169
            Height = 20
            TabStop = False
            Color = clBtnFace
            ReadOnly = True
            TabOrder = 1
          end
          object HFSizeEd: TEdit
            Left = 80
            Top = 67
            Width = 169
            Height = 20
            TabStop = False
            Color = clBtnFace
            ReadOnly = True
            TabOrder = 2
          end
          object BitBtn1: TBitBtn
            Left = 105
            Top = 93
            Width = 113
            Height = 33
            Hint = 'Select Font'
            Caption = 'Change Font'
            TabOrder = 3
            OnClick = BitBtn1Click
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00000000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333333333333333333333333333333FFF33FFFFF33333300033000
              00333337773377777333333330333300033333337FF33777F333333330733300
              0333333377FFF777F33333333700000073333333777777773333333333033000
              3333333337FF777F333333333307300033333333377F777F3333333333703007
              33333333377F7773333333333330000333333333337777F33333333333300003
              33333333337777F3333333333337007333333333337777333333333333330033
              3333333333377333333333333333033333333333333733333333333333333333
              3333333333333333333333333333333333333333333333333333}
            Margin = 5
            NumGlyphs = 2
          end
        end
        object HFText: TMemo
          Left = 8
          Top = 28
          Width = 257
          Height = 61
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object GroupBox13: TGroupBox
          Left = 8
          Top = 93
          Width = 257
          Height = 39
          Caption = 'Header/Footer Margins [inches]'
          TabOrder = 1
          object Label21: TLabel
            Left = 15
            Top = 17
            Width = 27
            Height = 13
            Caption = 'Left:'
          end
          object Label22: TLabel
            Left = 103
            Top = 17
            Width = 27
            Height = 13
            Caption = 'Top:'
          end
          object HFLeft: TEdit
            Left = 45
            Top = 14
            Width = 49
            Height = 20
            Hint = 'Header/Footer Left Margin'
            TabOrder = 0
            OnKeyPress = LeftEdKeyPress
          end
          object HFTop: TEdit
            Left = 133
            Top = 14
            Width = 49
            Height = 20
            Hint = 'Header/Footer Top Margin'
            TabOrder = 1
            OnKeyPress = LeftEdKeyPress
          end
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Logo'
      object GroupBox14: TGroupBox
        Left = 3
        Top = 4
        Width = 277
        Height = 275
        Caption = 'Logo Settings'
        TabOrder = 0
        object GroupBox15: TGroupBox
          Left = 8
          Top = 133
          Width = 257
          Height = 44
          Caption = 'Logo Position [inches]'
          TabOrder = 1
          object Label24: TLabel
            Left = 29
            Top = 19
            Width = 27
            Height = 13
            Caption = 'Left:'
          end
          object Label25: TLabel
            Left = 117
            Top = 19
            Width = 27
            Height = 13
            Caption = 'Top:'
          end
          object LogoLEd: TEdit
            Left = 59
            Top = 17
            Width = 49
            Height = 20
            Hint = 'Distance from Label Border to Left Edge of Logo'
            TabOrder = 0
            OnKeyPress = LeftEdKeyPress
          end
          object LogoTEd: TEdit
            Left = 147
            Top = 17
            Width = 49
            Height = 20
            Hint = 'Distance from Label Border to Top Edge of Logo'
            TabOrder = 1
            OnKeyPress = LeftEdKeyPress
          end
        end
        object GroupBox16: TGroupBox
          Left = 8
          Top = 24
          Width = 257
          Height = 97
          Caption = 'Logo File'
          TabOrder = 0
          object Label23: TLabel
            Left = 8
            Top = 24
            Width = 131
            Height = 13
            Caption = 'Logo File Name (BMP):'
          end
          object LogoFEd: TEdit
            Left = 8
            Top = 40
            Width = 233
            Height = 20
            Hint = 'Logo File Name (must be BMP file)'
            TabOrder = 0
          end
          object Button1: TButton
            Left = 88
            Top = 66
            Width = 81
            Height = 25
            Hint = 'Select Logo File'
            Caption = 'Select'
            TabOrder = 1
            OnClick = Button1Click
          end
        end
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 283
    Width = 368
    Height = 33
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 3
    object PreviousBtn: TButton
      Left = 16
      Top = 3
      Width = 89
      Height = 25
      Caption = '<< P&revious'
      TabOrder = 0
      Visible = False
      OnClick = PreviousBtnClick
    end
    object NextBtn: TButton
      Left = 162
      Top = 3
      Width = 89
      Height = 25
      Caption = '&Next >>'
      TabOrder = 1
      OnClick = NextBtnClick
    end
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 336
    Top = 287
  end
  object ReportSystem1: TReportSystem
    SystemSetups = [ssAllowCopies, ssAllowCollate, ssAllowDuplex, ssAllowDestPreview, ssAllowDestPrinter, ssAllowDestFile, ssAllowPrinterSetup]
    SystemFiler.FileName = 'label.tmp'
    SystemFiler.StatusFormat = 'Generating page %p'
    SystemFiler.StreamMode = smFile
    SystemPreview.ZoomFactor = 100.000000000000000000
    SystemPrinter.ScaleX = 100.000000000000000000
    SystemPrinter.ScaleY = 100.000000000000000000
    SystemPrinter.StatusFormat = 'Printing page %p'
    SystemPrinter.Title = 'Report'
    SystemPrinter.UnitsFactor = 1.000000000000000000
    OnPrint = ReportSystem1Print
    Left = 299
    Top = 287
  end
  object LabelShell1: TLabelShell
    NumDown = 4
    LabelWidth = 2.500000000000000000
    LabelHeight = 2.500000000000000000
    SpacingLeft = 0.250000000000000000
    SpacingTop = 0.500000000000000000
    SpacingWidth = 2.750000000000000000
    SpacingHeight = 2.500000000000000000
    DrawExtents = True
    LabelShape = lsRound
    OnReportBefore = LabelShell1ReportBefore
    OnLabelPrint = LabelShell1LabelPrint
    OnLabelAfter = LabelShell1LabelAfter
    OnReportAfter = LabelShell1ReportAfter
    Left = 259
    Top = 287
  end
  object OpenDialog1: TOpenDialog
    Title = 'Select Logo File'
    Left = 339
    Top = 256
  end
end